   1 .
   2 .
   3 .
   4 .*** CIRCLE PLOTTER
   5 CLEAR ;:RETURN ;NT=0
   7 BC=0;FC=131
  10 INPUT "◄X►"A
  11 INPUT "▲Y▼"B
  12 INPUT "RAD?"R
  13 U=1;O=1;P=1;Q=1
  15 F=A-R
  16 FOR X=FTO F+2×R
  17 S=R×R-((X-A)×(X-A));T=U÷4;IF T>R÷8T=U-1
  18 FOR U=TTO 500
  19 IF (U×U)>SGOTO 21
  20 NEXT U
  21 U=U-1;IF (S-U×U)<((U+1)×(U+1))-SGOTO 23
  22 U=U+1
  23 Y=U+B
  24 BOX X,Y,O,P,Q;BOX X,Y-(2×U),O,P,Q
  25 BOX Y-B+A,X-A+B,O,P,Q
  26 BOX Y-B-(2×U)+A,X-A+B,O,P,Q
  27 NEXT X
  30 CY=40;GOTO 10
 110 GOTO 10
RUN 
